ASP 调用大类下的小类[附全代码] 谢谢.

来源:百度知道 编辑:UC知道 时间:2024/06/24 08:44:02
sub ShowSmallClass_Tree()
if rsBigClass.bof and rsBigClass.eof then
response.Write "The column is under construction……" 'The column is under construction 栏目正在建设中
else
dim sqlClass,rsClass,strTree,BigClassNum,i,j
rsBigClass.movefirst
BigClassNum=rsBigClass.recordcount
i=1
do while not rsBigClass.eof
if i<BigClassNum then
strTree=""
else
strTree=""
end if
sqlClass="select * from SmallClass where EnBigClassName='" & rsBigClass("EnBigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
strTree= strTree & "<table width=100 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr>"
strTree= strTree & "<td width=150 height=25>"
strTr

怎么了?

sub ShowSmallClass_Tree()
if rsBigClass.bof and rsBigClass.eof then
response.Write "The column is under construction……" 'The column is under construction 栏目正在建设中
else
dim sqlClass,rsClass,strTree,BigClassNum,i,j
rsBigClass.movefirst
BigClassNum=rsBigClass.recordcount
i=1
do while not rsBigClass.eof
if i<BigClassNum then
strTree=""
else
strTree=""
end if
strTree= strTree & "<table width=100 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr>"
strTree= strTree & "<td width=150 height=25>"
strTree= strTree & "<a href='En_Product_tree.asp?EnBigClassName=" & rsBigClass("EnBigClassName") & "'>"
strTree=strTree & rsBigClass("EnBigClassName")
strTree=strTree & "</a></td>"
'strTree=strTree